home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / sleve81.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  106 lines
  1. 1 PRINT"           3 1/2 DISK SLEEVE            "
  2. 2 PRINT"[144]     NOVEMBER 10,1988 JULIE COUPAL        "
  3. 3 PRINT"[159]          DOCS FOR ASSEMBLY               "
  4. 4 PRINT"CUT OUT SLEEVE ON LINE GOING AROUND TABS B & C."
  5. 5 PRINT"DO NOT CUT ON 'FOLD HERE' LINES."
  6. 6 PRINT"FOLD ON LINES AND FOLD IN TABS TOWARDS  A. GLUE OR TAPE TO D.
  7. 7 [153]"LET DRY AND THERE YOU ARE!"
  8. 8 [153]
  9. 9 [153]"MAKE SURE YOUR PRINTER IS ON AND THE    PAPER IS ALIGNED!"
  10. 10 [153]"THIS PROGRAM ALIGNS YOUR PAPER WHEN      FINISHED FOR MORE COPIES."
  11. 11 [159]4,4
  12. 15 [129]I[178]0[164]15
  13. 16 [151]53280,I
  14. 17 [129]J[178]1[164]1000:[130]
  15. 18 [130]
  16. 19 [151]53280,0
  17. 20 [129]I[178]0[164]15
  18. 21 [151]53281,I
  19. 22 [129]J[178]1[164]1500:[130]
  20. 23 [130]
  21. 24 [151]53281,0
  22. 25 [129]I[178]0[164]15
  23. 26 [151]646,I
  24. 27 [153]
  25. 28 [129]J[178]1[164]100:[130]
  26. 29 [130]
  27. 30 [153]
  28. 31 [151]646,14
  29. 32 [151]53280,14:[151]646,14:[151]53281,6
  30. 40 [153] [163]8);"PRINTPRESS <RETURN> TO BEGIN."
  31. 50 [161] K$:[139] K$[179][177][199](13) [167] 50
  32. 60 [153] [199](147)
  33. 70 [152]4,"                                              "
  34. 80 [152]4,"                                              "
  35. 90 [152]4,"                                              "
  36. 100 [152]4,"    (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$  "
  37. 110 [152]4,"    PEEK                                      PEEK  "
  38. 120 [152]4,"    PEEK                                      PEEK  "
  39. 130 [152]4,"(null)LENLENLENPEEK                                      PEEKLENLENLENRIGHT$"
  40. 140 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  41. 150 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  42. 160 [152]4,"PEEK B PEEK                                      PEEK C PEEK"
  43. 170 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  44. 180 [152]4,"PEEK   PEEK                  A                   PEEK   PEEK"
  45. 190 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  46. 200 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  47. 210 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  48. 220 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  49. 230 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  50. 240 [152]4,"PEEKCLOSECLOSECLOSEPEEK                                      PEEK   PEEK"
  51. 250 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  52. 260 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  53. 270 [152]4,"PEEK   PEEK                                      PEEK   PEEK"
  54. 280 [152]4,"MID$LENLENLENPEEK                                      PEEKLENLENLEN(null)"
  55. 290 [152]4,"    PEEK                                      PEEK    "
  56. 300 [152]4,"    PEEK--------------FOLD HERE---------------PEEK"
  57. 310 [152]4,"    PEEK                                      PEEK"
  58. 320 [152]4,"    PEEK                                      PEEK"
  59. 330 [152]4,"    PEEK                                      PEEK    "
  60. 340 [152]4,"    PEEK                                      PEEK  "
  61. 350 [152]4,"    PEEK                                      PEEK  "
  62. 360 [152]4,"    PEEK                  D                   PEEK  "
  63. 370 [152]4,"    PEEK                                      PEEK  "
  64. 380 [152]4,"    PEEK                                      PEEK  "
  65. 390 [152]4,"    PEEK                                      PEEK  "
  66. 400 [152]4,"    PEEK                                      PEEK  "
  67. 410 [152]4,"    PEEK                                      PEEK  "
  68. 420 [152]4,"    PEEK                                      PEEK  "
  69. 430 [152]4,"    PEEK                                      PEEK  "
  70. 440 [152]4,"    PEEK                                      PEEK  "
  71. 450 [152]4,"    PEEK                                      PEEK  "
  72. 460 [152]4,"    PEEK                                      PEEK "
  73. 470 [152]4,"    PEEK                                      PEEK  "
  74. 480 [152]4,"    PEEK                                      PEEK  "
  75. 490 [152]4,"    PEEK                                      PEEK  "
  76. 500 [152]4,"    PEEK                                      PEEK  "
  77. 510 [152]4,"    PEEK                                      PEEK  "
  78. 520 [152]4,"    PEEK                                      PEEK  "
  79. 525 [152]4,"    MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)  "
  80. 526 [152]4,"                                         "
  81. 527 [152]4,"                                         "
  82. 528 [152]4,"                                         "
  83. 529 [152]4,"                                         "
  84. 530 [152]4,"                                         "
  85. 531 [152]4,"                                         "
  86. 532 [152]4,"                                         "
  87. 533 [152]4,"                                         "
  88. 534 [152]4,"                                         "
  89. 535 [152]4,"                                         "
  90. 536 [152]4,"                                         "
  91. 537 [152]4,"                                         "
  92. 538 [152]4,"                                         "
  93. 539 [152]4,"                                         "
  94. 540 [152]4,"                                         "
  95. 541 [152]4,"                                         "
  96. 542 [152]4,"                                         "
  97. 543 [152]4,"                                         "
  98. 544 [152]4,"                                         "
  99. 545 [152]4,"                                         "
  100. 548 [153]"SYSYOUR PRINTER HAS GOTTEN YOUR NEXT SHEET READY FOR MORE COPIES."
  101. 549 [153]"CONTPRESS <RETURN> FOR MORE COPIES OR       <RUN/STOP> FOR NONE."
  102. 550 [161] K$:[139] K$[178]""[167] 550
  103. 560 [137] 40
  104. 570 [153]
  105. 580 [139] K$[178]"N" [167] [128]
  106.